BYTE BANDITS 
OF AMERICA 

OCTOBER 1987 

NEW PROGRAMS: 

"POPCORN" - Tandy - VISDOS - Memory resident . 1. Dictionary 

2. Calculator - Calendar - ASCII Programs. These two Programs 
were donated by the Radio Shack Computer Center on S. Ba scorn Ave. 

"VISION" - MSDCS - Integrated Applications Programs. This 
package includes a Word Processor - Applications Vanager - Graphs 
- Calculations, all in the Windows environment. It also requires 
a Hard Disk System. 

"DESKMATE" - Tandy - Viodel IV Environment System. 

"N.S.L." - Public Domain Disks (3). A set of 33 MS DOS Program 
Utilities that assist in filling your disks or Hard Disk with 
Programs that could be useful, if you need them. 

"PC FOUR" - This is a Program by "Hypersoft" that allows you to 
operate Vode 1 IV BASIC - Machine Language Programs on your MS DOS 
Machines. PC FOUR works with assemblers - word processors - and 
other Z-SO Code Programs. The Model IV Programs are transported 
thru "Hypercross" and then PC FOUR runs their) in the 8088 
machines. The Program is a real treat for those who wish to keep 
their Tandy Model IV s and need to communicate in the MSDCS 
world. The Cost is $79.95. Ph // 919/847-4779. 

TK i V I A : 

There are 21 Styles of Printer Ribbons made for 58 Computer 
Manufacturers; to be used on 907 Vode 1 s of Computers. Al LANGONE 
sent us this info. 

PRQGRAV TRANSFERR I NG : 

A unique way to transfer Files and Programs between Disk 
Operating Systems without the use of Special Utilities: 

TI=A, TD=A, TC=35, SPT=10, TSR=3, GPL=2, DDSL=17, DDGA=2, 
and FORMAT the Disk in Drive 1. The following DOS ' s can Read and 
Write to this format without changing any settings: 

Wf TRSDOS, LS-DOS, DOSPLUS, L DOS, MULT I DOS, Model 1 NEW DOS. 

SURREY Microcomputer 
Users Group Newsletter 

NEWSLETTER INPUT: 

"The Micro Group" Newsletter is from a Viodel IV User's Group 
located in Surrey, Canada. We use inserts of their Newsletters to 
assist our Model IV Club Members. The editors should be thanked 
for producing a very informative Newsletter. We do exchange our 
monthly Newsletter with them. Thanks SURREY M.i c r oCompu t er Users 
Croup for assisting us throughout the year with your informative 
articles. 



CHAOS COMPUTER CLUB Vs. N.A.S.A. 

If you read the newspaper this week you may have seen that 
article. CHAOS was caught fooling around in N.A.S.A. 's Computer 
files. No, we don't condone these operations. The Club is quite 
notorious in Europe. we use their Services for Communications. 
Lucky for us we can't read German!! we do get Newsletters from 
their CHAOS Clubs but, I'm at a loss as to understanding them. 
We should not let our affiliation with them be a problem. Like 

ii .t--,.,- j.u_ L.-..J * -> I t *l"^ ~,.Ki;^-;+w -> r-. A +t,ic i c in turn 
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passed on to the good also. 

EDUCATIONAL PROGRAMS: 

Now that the school year has started, you may wish to improve the 
skills of your children by checking out a few educational 
programs such as Spelling - Math - word Processing, etc. They 
should help to improve grades. If you are continuing your own 
schooling, these programs can be a good review exercise. 

386 WORLD: 

Why is the Computer Industry rushing towards the New - 386 
Computers so quickly? It appears the major reason is 
I NCOA'PATAblLITY! Yes, the 32 bit bus INTEL 80386 Chip Bus 
demands interfacing with U.S.A. manufactured boards. Those who 
design their own 32 bit chip wi 1 1 not be compatible with the 
INTEL Chip Computers. 

Should you be interested in the new great machines, don't buy one 
that does not have the latest INTEL 8 03 8 6 Chip. 

NOTE!!! INTEL recalled 500,000 chips due to a BIG Bug in them. 
Don't buy a machine that hasn't had the latest INTEL chip 
installed. Yes, it could ruin your whole day! 

Clone manufacturers will be required to sell all 32 bit Hardwares 
for their computers. The Tandy 4000 has INTEL'S Chips in them. 
It also has a reasonable price tag. 

VK3DEL 1 NEwS: 

Should you need to update your machines, we have the following 

parts available: 

Expansion Interface - $150.00 

New Double Density Board (Aero) - $105.00 

Vio n i t o r - $25.00 

Also - Bernie says he can still modify keyboards for lower case 
functions. 



DOS Utility Tips 

Major David Boyd 

Command and Control Microcomputer Users' Group 

Some DOS commands can get you into deep trouble if 
you try to use them without an intimate understanding 
of what they do. 

RECOVER 

Several files on a hard disk were recently damaged, 
probably by a telephone placed too close to the 
machine. (The bell ringer in a telephone is 
electromagnetically driven, so it produces a fairly 
powerful magnetic field when it rings. This magnetic 
field can damage floppies, hard drives, and — in 
extreme cases — can even cause problems with 
RAM.) 

In an effort to recover the damaged files, the 
operator used the DOS RECOVER command. 
Unfortunately, that produced a far more serious 
problem. If RECOVER is executed against an entire 
file structure, rather than against a single file, it will 
identify every referenced sector linkage as a file and 
rename it FILE0001.REC (then FILE0002.REC for 
the next one, and so on). When it does that, it can 
effectively destroy the integrity of every file on the 
hard drive, including the copy protection markings of 
copy protected software, because it overwrites 
unmarked files with recovered files. In other words, it 
will destroy your installed copies of Lotus 1-2-3 and 
dBASE HI as effectively as if you had reformatted the 
hard disk. You cannot do an uninstall, normally, after 
you have run RECOVER. You are wise to consider 
RECOVER a taboo DOS command! 

There are, however, things you can do to reduce 
the likelihood of losing all your files. First, back up 
the hard disk regularly (at least once a week). That 
which you do not back up you will surely lose, and the 
likelihood of damage to a file is directly proportional 
to the amount of work you have invested in it. 



CHKDSK 

Periodically run CHKDSK against your hard disk to 
detect problems before they start. If you get back a 
message saying you have "F PARAMETER 
ERRORS," then run CHKDSK again, but do it by 
entering 

CHKDSK/F 

A minor bug in CHKDSK causes it, when if finds 
errors, to ask if you want the lost clusters and chains 
converted into files. Even if you answer yes, it won't 
make the conversion unless you have given the 
command with the /F option. Once you've done this, 
you will wind up with files named FEJEOOOO.CHK, 
FUJEOOOl.CHK etc., with one file for every chain. 
Before you delete these files, look at each one by 
entering this command: 

TYPE FILE0000.CHK 

examining each of the files. If you find one that is 
obviously something you want to keep (which is not 
very likely, because they are almost always remnants 
of files you have already erased), then rename it by 
entering 

REN FILEOOOO.CHK FILEOOOO.KP 

substituting the proper filenames as required. Then, 
once you have checked them all, delete the garbage 
by entering: 

DEL *.CHK 

This command will delete every file with the extension 
.CHK. If you ever find "F PARAMETER 
ERRORS" (and you frequently will after intensively 
editing files), you must run CHKDSK/F. These 
errors will grow if not treated. 

BACKUP 

A good safety measure, this command should be used 
at least once a week. It is important that you 
remember, however, that files transferred this way 
cannot be used by PC DOS or any of your application 
programs until they have been placed back on the 
hard drive with the RESTORE command. 
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BeeS Time Clock Circuit for the TBS-BO Model 4 Microcomputer 
Copyright I mi by Mel Putrielc 
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Parts List 

Diodes - Dl .D2.D3 - W4148 

Resistors -R1 -IK 1/4 watt 

R2 - 2K2 1/4 watt,R3 - 4K7 1 /4 watt 

R4 - Optional (470 ohm to 1 K 1 /4 watt) used 

ICs - JC1 - CD4001 for staWfe ^ iwi "^ 

C2 - Intersil SCM7170IPG 

Capacitors - CI - 33pf trimmer 
C2- 18 pf 

Crystall - XI - 32.768 KHZ watch type 
81,2-1 55V nfcad batteries (see note) 

Mtsc - Sockets, solder, wire wrap (30 awg), 
ribbon cable, edge card connector, etc. 
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Battery Note. The circuit shown uses a 
pair of nicad batteries in a double- A 
battery cell bolder for backup power 
when your computer is off. The nicads 
are automatically oharged whenever the 
computer is on. However due to the size 
of these batteries, you may wont to use 
a smaller 3V lithium watch cell instead. 
If you do this, remove D3 and R2 from 
the circuit shown (they are only used to 
charge the nicads). 



Ql - Hard Drive Systems 2N2222 or 2N3904. Non-Hard Drive Systems 2N3393. 



RADIO SHACK MICROCOMPUTER NEWSLETTER 

The following disk program was written to allow us to list programs on any printer. 
Your program must have been SAVEd using the ,A option (ASCII format). Simply 
RUN"LISTER/BAS" answer the questions, and you will be able to list programs using 
any line length, with neat headings and skips at perforations. 

10 ' USTER/BAS 2.0 — BASIC PAGE USTER 

20 ' COPYRIGHT (C) 1979 TANDY CORP. 

30 CLEAR 1000 : DEFINT A-Z 

32 ' 

34 ' ATTEMPT TO OPEN REQUESTED FILE; ERROR TRAP IF NOT FOUND 

40 CLS : PRINT TAB{20) "BASIC PAGE USTER 2.0":PRINT 
50 LINEINPUT* ENTER F1LESPEC: ";F$ 

60 ON ERROR GOTO 4000:OPEN T,1 ,F$ 

70 ON ERROR GOTO 4100: PG = PAGE COUNT SET TO ZERO 

72 ' 1ST CHARACTER OF UNE IS TO 9 OR 48 TO 57 DECIMAL 

73 ' OR FILE IS NOT ASCII! 

80 UNEINPUT#1 ,L$ : D = ASC(LEFT$(U,1 )) ' 

90 IF D<48 OR D>57 THEN PRINT* NOT ASCII BASIC RLE": GOTO 50 

100 LINEINPUT ENTER TITLE: ";TL$ 

110 LINEINPUT TIME AND DATE: ";DT$ 

120 LINEINPUTENTER PAGE WIDTH: ";WD$ 

125 IF WD$="" THEN WD = 64: PRINT TAB(17); CHR$(27)WD ELSE WD = 
VALfWDS) 

130 IF WD<64 or WD>132 THEN PRINT* BAD WIDTH (64-132 ONLY) 

•"•GOTO 120 

135 INPUTDO YOU WANT EACH 'STATEMENT ON A SEPARATE UNE";SL$ 

136 IF LEFT$(SL$,1 ) = "Y" THEN F1 = 1 ELSE F1 - 
140 PRINT:INPUTTYPE 1 FOR SINGLE SPACE, 2 FOR DOUBLE"; SP 

142' 

144 ' *** MAKE SURE THE PRINTER IS READY *** 

<4g ' 

150 PRINT:LINEINPUTREADY PRINTER - THEN PRESS ENTER > V A$ 

160 IF PEEK(14312)>127 THEN PRINT* PRINTER NOT READY *":GOTO 150 

178 POKE 1S424,67:POKE 1S425.1 ' SETLINE/PAGE & LINE COUNT 

180 GOSUB 500:GOTO 220 

190 GOSUB 500 

200 IF EOF (1) THEN 330 

210LINEINPUT#1,L$ 

215 IF F1 = 1 THEN GOSUB 600:GOTO200 

220W1=WD:T = 

230 W = W1 :IF LEN(L$)<W THEN W = LEN(L$) 

240 J = INSTR(L$,CHR$(10))' CHECK FOR UNEFEED 

250 IF J>0 THEN W = J-1 ELSE IF LEN(L$)>W1 THEN J - -1 

260 LPRINT TAB(T); LEFT$(U,W) 

263 IF J<>0 AND T = THEN T = 5:W1 =W1 -T 

265 IF SP = 2 THEN LPRINT " ' DOUBLE SPACE 

270IFJ>0THENW = W + 1 

280 L$ = RIGHT$(L$,LEN(L$)-W):IF L$=-THEN 310 

290 IF PEEK(16425) >62 THEN LPRINT CHR$(12): GOSUB 500 

300 GOTO 230 

310 IF PEEK(16425) <63 THEN 200 ' PAGE FINISHED? 

320 LPRINT CHR$(12): IF EOF(1) THEN 340 ELSE 190 

SS £5 ?JSSsU A B U Sr,NT:PR IN T- E NM,F.UST,KG -:END 

497' 

498 ' *** PRINT DASH AND HEADING *** 

499' 

500 GOSUB 1000:GOSUB 2000: RETURN 

600 NN = 0:FOR J = 1 TO LEN(L$):V$ = MID$(L$,J,1):L=L+1 

610 LPRINT V$;:IF L> =WD THEN LPRINT ":GOSUB700:LPRINTTAB(10);: 

L=10 
620 IF V$ = CHR$(34) AND NN = 1 THEN NN = 0:GOTO640 

630IFV$ = CHR$(34)ANDNN = 0THENNN = 1 „,.„,„ . E 

640 IF V$=":" AND NN<>1 THEN LPRINT ":GOSUB700:LPRINTTAB(5);:L=5 

650 NEXT J 

660 LPRINT ":L = 

(Continued on page 4) 



LISTER/BAS 2.0 (Cont.) 

670 GOSUB 700 

680 RETURN 

700 IF PEEK(16425)>62 THEN 

LPRINT CHR$(12): GOSUB500 
710 RETURN 
997' 
998 ' *** PRINT DASHED LINES FOR 

PERFORATIONS *** 
999' 
1000 LPRINT STRINGSOVD,"-"): 

GOSUB 3000: RETURN 
1997' 
1998 ' *** PRINT HEADING AND PAGE 

NUMBER *** 
1999' 

2000 LPRINT TAB(10); LEFTS (TU 

+ STRING$<30 > 32),30);" "; 

DT$;" "; 

2010 PG = PG + 1 : LPRINT USING " 

PAGE ###";PG : LPRINT TAB 

(10); STRINGSfWD-l©,^") 
2997' 

2998 ' *** PRINT TWO BLANK LINES ** 
2999' 

3000 LPRINT ":LPRINT ":RETURN 
3997' 

3998 ' *** ERROR TRAPPING *** 
3999' 
4000 IF ERR/2 + 1 = 54 THEN PRINT* 

FILE NOT FOUND*": RESUME 50 
4010 IF ERR/2 + 1 =65 THEN PRINT'* 

BAD FILE NAME *": RESUME 50 
4020 PRINT:PRINT ERROR #"; ERR/ 

2 + 1;"IN";ERL:STOP 
4100 RESUME 



Convert Lower Case 
to Upper Case 

If you have ever had difficulties compar- 
ing two strings where someone has 
accidentally used the shift key, James R. 
Reed of Dallas, Texas, has a solution. 
Mr. Reed has provided us with a short 
subroutine which will check each letter in 
a string variable to ensure that it is upper 
case. His subroutine is: 

1000 A = LEN(l$):0$ = "":IF 1$ = "" 

RETURN 
1010 FOR B=1 TO A 
1020C=ASC(MID$(I$,B,1)) 
1025 IF C>95 THEN C - C - 32 
1030O$ = O$ + CHR$(C) 
1040 NEXT:RETURN 

To use the subroutine, simply set the 
string you want to test equal to IS and call 
the subroutine. When you return from the 
subroutine, set your original string equal 
to 0$. Like this: 

530* THE UNE BELOW WOULD BE IN 
540' THE MAIN PROGRAM 
550 INPUT AS 

560 l$=A$:GOSUB 1000:A$=O$ 
570' THE REST OF THE PROGRAM 
FOLLOWS 
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Updating to LS/DOS 6.5. -Art.byL.Hohr 

To add to the confusion of updating froa 6.2 to 6.3, this article 
say help do just that! 

To update SYSTEM disks, the procedure is: 1. Place 6.2 disk in 
drive 1, and give the coa aand: 

BACKUP :0 :1 G,S,OL0) (enter) 

(This wDl copy tte new 6.3 systea files over the old 6.2 
systea files) 

2. If you wish to use the ne w B A SIC files, give the co a a and: 

BACKUP BASIC/$:0:1 GO (enter) 

(This copies Basic/cod, BasicA>v1, i BasicA>v2 (/ov2-being 
new)) 

3. To coaplete update, give the coa aand: 

DATECOKV :1 (enter) 
(This wtQ update the files with aodification tine, and when 
coaplete will give how a any files where updated^ 

This coapletes upgrading of SYSTEM disks, the next ; section i* 
upgrading of DATA disks, this Bust be checked to verify that 
ONLY the BOOT/SYS and OIR/SYS exist on the disk, otherwise it 
is NOT a data disk! 

1. Place D ATA disk in drive 1, and give the coa aand: 

DATEC0NV:1(CS) (enter) 
(This will update the files with aodification tlae, and when 
coaplete will give how many files where updated.) 
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The BASIC Language 



Gains C apabilities For 
Graphics Manipulation 



by Stewart B. Chapin, 
and Christian E. Walker, 

True BASIC Inc. 

In the early days of BASIC, when card decks and tele- 
typewriters were the predominant data input devices, in- 
putting and outputting numbers was a major challenge. 
Therefore, using graphics to display them was the least of 
anyone's worries. But as hardware evolved, so did BASIC. 
Graphics and structured programming have become im- 
portant parts of what is still the world's most popular 
programming language. 

John Kemeny and Thomas Kurtz, the Dartmouth 
College professors who invented BASIC (Beginner's All- 
Purpose Symbolic Instruction Code) in 1964, have contin- 
ued to direct the evolution of the language. Recently, 
they created True BASIC to reflect the work done by inter- 
national committees toward formulating two standards: 
ANS BASIC for the language and the Graphical Kernel Sys- 
tem (GKS) for BASIC graphics. True BASIC is the first micro- 
computer version of BASIC to follow these new standards. 

Device-independent graphics became part of the 
syntax of Dartmouth BASIC in 1979. Other versions of BA- 
SIC, especially HP-BASIC, also added good device-inde- 
pendent syntax. 

True BASIC is now available for the IBM PC, Apple 
Macintosh, and Commodore Amiga. Version 2.0 for the 
IBM PC, released in the fourth quarter of 1986, puts 
added emphasis on graphics. For the first time, the full 
syntax of BASIC graphics is supported on all three IBM PC 
display standards: monochrome graphics, the Color 
Graphics Adapter (CGA), and the higher resolution En- 
hanced Graphics Adapter (EGA). 



PLOT And WINDOW 



Getting started with graphics is easy with True BASIC. 
For example, consider the sine function. In traditional BA- 
SIC, the function Y = sin(X), from x = to x = 2ir, can 
be examined with this short program. 

FOR X = TO 2*3.14159 STEP .1 

PRINT X,SIN(X) 

NEXTx 

END 

When run, this program creates a table of output for 
x and sin(x). However, what's really needed is the shape 
of the curve. In True BASIC, the graphics equivalent of the 
previous program would look like this: 

SET WINDOW 0,2*pi,~ 1,1 ' 
FORx = 0TO2*pistep.l 

plot x, sin(x); 
NEXTx 
END 



The SET WINDOW statement lets the user define the 
coordinate scheme to be used for plotting. In this case, X 
is defined to range between and 2-rr and Y is defined to 
range from - 1 to 1. The semicolon indicates that the 
plotted points are to be connected in a curve; if it were 
omitted, only the series of dots would be shown. 

In addition to points and lines, True basic also has 
syntax for ellipses, area, and text plotting. And MAT 
PLOT statements allow the plotting of entire arrays with 
a single statement. 

By default, graphics (as in this example) are always 
scaled to fit the entire screen (or, on systems such as the 
Macintosh and Amiga, to fit the entire output window). 
But the screen can be divided into several smaller win- 
dows and different coordinate scales can be assigned to 
each. A more elaborate version of the sine wave example 
is shown in the Box. 



True BASIC Example 



OPEN #1: screen 0, .5.0, .5 
SET WINDOW 0,2-pi, -1,1 
BOX LINES 0,2'pi. -1,1 

OPEN #2: screen .6, 1, 0, 1 
SET WINDOW 0,2«pi, 0,1 
BOX LINES 0,2-pi, 0,1 

FORX = 0to2«pistep.l 

WINDOW #1 

PLOT x, sin(x); 

WINDOW #2 

PLOT x, sin(x) 
NEXTX 

END 



! Open window in lower left, 
! assign coordinate scale 
! and draw a box around it 

! Open second window — very tall 
! assign a different scale 
! and draw another box. 

! Here's the old example 

! enter the first window, and 

! draw part of the curve. 

! Now enter the second window, 

! and plot unconnected points 



The result (see Fig) shows how advanced software 
can simplify graphics creation. True BASIC keeps track of 
window dimensions, coordinate schemes, current loca- 
tion, and current color. The user doesn't have to know 
any of these but can find them out if necessary by using 
queries such as ASK SCREEN, ASK WINDOW, and ASK 
COLOR. Thus, there's no need to pass this information 
between the main part of the program and graphics-ori- 
ented subroutines. 



Pictures And Transformations 



True BASIC also implements a new graphics-oriented 
unit, the Picture, which is the graphics equivalent of a 
subroutine. It has a name that refers to a collection of 
graphics statements, can take parameters, and can be 
called by name from other parts of the program. Pictures 
can be stored in external libraries, along with sub- 
routines and functions. 

But pictures have other special properties that make 
them different from subroutines. Besides passing param- 
eters to them, you can apply special effects known as 
transformations. Built-in transformations include the 
ability to rotate, shift, or rescale the picture with a single 
statement. 
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In addition to the built-in transformations, you can 
also define your own. Pictures and transforms, together 
with windows and user-defined coordinates, give today's 
BASiC programmer extensive control, not only over what 
graphics output to display, but over how and where to 
display it. 

Many people associate graphics with color. But it 
wasn't always so. In the early days of plotting — whether 
on paper or on-screen— — graphics were uCciwGuiy mon*^~ 
chrome, Paper plotters had the mechanical problem of 
how to change pens, but screen-oriented graphics had 
even greater problems. Further, color monitors are still 
expensive and have trouble matching the resolution of 
monochrome monitors. 



BASIC And Color Graphics 



The problem of devising the software to manage col- 
>rs is a problem of at least equal difficulty. Instead of just 
ceeping track of whether a pixel should be on or off, soft- 
ware now has to track what color it is and, if it's off, what 
:olor is 'off.' 

Over the last five years, the trends in microcom- 
juter graphics hardware have exemplified these difficul- 
ies. When the IBM PC was first released, it was assumed 
hat most people would only need monochrome text dis- 
mays. Later, when the Color Graphics Adapter (CCA), was 
ntroduced, its several different modes all involved trade- 
offs: You can have text-only in 16 colors, medium reso- 
lution graphics in four colors, or high resolution graphics 
in two colors. And while the CGA user is already limited 
in basic color choice, there are even further limits in the 
choice of colors that can be used together on-screen at 
the same time. 

The designers of the Apple Macintosh, implementing 
a very complex icon-based operating system, evidently 
decided that adding the problems of color graphics 
would be too difficult. Therefore, the Macintosh tradeoff 
involves higher resolution, but in monochrome only. 

Technological advances and lower chip prices have 
combined to improve the graphics options of today's mi- 
cro users. On newer display cards, such as the EGA for 
the IBM, and on machines such as the Atari ST, the Com- 
modore Amiga, and the Apple IIGS, the hardware sup- 
ports higher levels of resolution with greater color 
choices. Yet how does a language such as BASIC pass on 
those options to the user? 

True BASIC programs use the SET MODE, SET COLOR, 
and SET COLOR MIX statements. SET MODE selects the 
level of resolution by using such names as 'mono' or 
'highl6'. SET COLOR changes the current color, which 
will be used by subsequent PLOT statements. Since most 
users don't memorize colors by number, colors can be 
set by name (for example, SET COLOR 'red'). 

On the Amiga, the EGA, and other hardware that al- 
lows it, True BASIC users can define their own colors. SET 
COLOR MIX (1) .1,.5,.8 sets color number one to be a mix 
of red, green, and blue (in this example, mostly blue- 
green). When the BASIC user sets the current color to 1, 
this blue-green shade is what will be used. SET COLOR 



MIX also affects the parts of an object already on-screen 
that have the cuosen coior nurnucr. 



Portability 



One of the important lessons learned about com- 
puter graphics over the iast uecaue, especially on 
micros, is the need for portability. Applications that 
started on flatbed plotters might be moved to CRT dis- 
plays or shared with colleagues who have output devices 
with different resolutions. Graphics that are hardwired to 
specific devices are doomed to be left behind as technol- 
ogy advances. 




Fig With the same True BASiC code, a 
sine wave from to 2-rr can be manipu- 
lated to fill an entire screen (a) or a small 
window on the screen In this case (b), 
not all of the original figure fits within the 
available window 



(■>> 
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When graphics were first introduced to BASIC at Dart- 
mouth, the need for device-independent syntax was rec- 
ognized immediately. It was a necessity because, like 
most schools, Dartmouth had a hodgepodge of equip- 
ment. Over the last few years, the computer world has 
acknowledged this problem and responded to it with 
standards such as GKS. 

True BASIC and the ANS BASIC standard that it follows 
use GKS in a way that harmonizes well with the spirit of 
BASIC. Therefore, the ease of use that was so important 
when Kemeny and Kurtz first designed the language is 
still its hallmark, even for sophisticated graphics. S 
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Simple Word Processing Program 

Mr. Dave Satterfield of Carson City, Nevada sent this program 
for simple word processing in Level H and Disk BASIC. Trie pro- 
gram allows you to set maximum print width and equal left and 
right margins. While you are entering text, the number of unused 
characters is displayed. If you reach the right margin, a flag will 
come on telling you that the margin has been reached. You can 
type past the margin to the line length you set. At any time you 
can backspace one character (left arrow) or press the '@' key 
to erase the entire line. This program reverses the keyboard, so 
you shift for upper case. Remember, you can send upper/lower 
case to your printer if your printer supports upper/tower case, 
but you will not see lower case on the video unless you have the 
conversion kit installed. An upper case lock (shift up arrow) is 
provided. Press up arrow to return to upper/lower case. Press- 
ing the ENTER key will print your text on a line printer. This pro- 
gram was NOT written to be used with our upper/lower case 
conversion kit. 

11 CLEAR 500 

1M CLSrINPUT'MAX PRINTER LINE LENGTH";L 

110 CLS:INPUT"LEFT/RIGHT MARGIN" ;M 

120 CLS:PRINT"READY":FOR N = 1 TO 200:NEXT: CLS 

125 C= -1:S= -1:B$ = "":A$="":CLS 

138 C = C + 1 :BS = BS + A$:PRINT@128,B$;CHR$(93);: 

PRINT@40,"SPACE LEFT";L-C-M; 
133 IF C> =L-(2*M)PRINT@30,"MARGIN";ELSE PRINT® 

135IFC = L-MTHEN255 

140 A$ = INKEY$:IF A$ = "" THEN 140 

160IFA$ = "@"THEN125 

170 IF S = 1 THEN 190 

180 IF(ASC(A$)<91)*(ASC(A$)>63)THEN 

A$ = CHR$(ASC(A$) + 32): GOTO130 
190IF(ASC(A$)<12B)"(ASC(A$)>95)THEN 

A$ = CHR$(ASC(A$)-32): GOTO130 
200 IF ASC(A$) = 27PRINT@0, 

"SHIFT";:S = 1 :A$ = "":GOTO140 
218 IF ASC(A$)=91PRINT@e," ";: 

S=-1:A$ = "":GOTO140 
220 IF ASC(A$) = 13THEN 300 
240IFASC(A$) = 8THEN 

C = C-2:Z=LEN(B$)-1:B$ = LEFT$(B$,Z): 

A$ = "":GOTO130 
250 GOT0 130 

255 PRINT@8,"END OF UNE. PRINT (P) OR ERASE (E)7" 
260 P$ = INKEY$:IF P$ = "" THEN 260 
265IFP$ = "P"THEN300 
270IFP$ = "E"THEN125 
275 GOTO260 
300 LPRINTTAB(M)B$:GOT0125 



IMPORTANT NOTt 
FOR MODEL II USERS 

After you have turned the power off to your 
Model n, wait AT LEAST 30 seconds before 
turning it back on. Failure to wait could 
eventually cause damage to the com- 
., puter's circuitry. 

Model II Diskette 
Caution 

The TRS-80 Model n uses double-densitY 
diskettes. We have recentlY traced a num- 
ber of serious problems to the use of 
lower cost single-density diskettes. 

The Model II was designed to use only 
very high quality double-densitY diskettes 
such as our 26-4905s and 26-4906s. Ex- 
tensive testing has shown that the lower 
cost single-density diskettes amply do not 
provide the quality needed to ensure reli- 
able data transfer with the Model D. 

We are not trying to say that our diskettes 
are the only ones that will work. There are 
other DOUBLE-DENSITY diskettes which 
work very well in the Model EL However, 
before you invest a lot of money, make 
sure that the diskettes you are buying will 
provide you with reliable data transfer 
over a period of time. Remember, when 
you buy Radio Shack accessories and 
supplies for your TRS-80, you are buying 
products which have been thoroughly 
tested and proven to work with our 

*""* Model II Supervisor 

r SETBRK 
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Word Processing 

TRS-80" Model I Keyboard Reverse is 
Now Possible with a Simple Program 

Some of you who use the TRS-80 for word processing may have had difficulties using 
me keyboard because the upper-lower case arrangement is the opposite of a typewriter 
Keyboard arrangement. Here is a simple program you may use to reverse upper and 
lower case for letters and arrows. If you have an upper-lower case printer, this program 
will allow you to use it more effectively. 

10 REM " REVERSE KEYBOARD 

(REVKEY) " 
20 A$ ■ INKEYS : IF A$ = "" THEN 20 

ELSE 30 
30 A ■ ASC (A$) 
40 IF A < 65 THEN A = A: GOTO 70 

Your video display, of course, will still be all upper case. Thanks to Carl L Armstrong 
of Winston-Salem, N.C. for this program! 



SO IF A < 91 THEN A = 
GOTO 70 

60 IF A < 128 THEN A 

70LPRINTCHR$(A); 
80 GOTO 20 



A + 32: 



A -32 



The following information will allow you 
to "lockout' the BREAK key in Model II. 

Enter DEBUG, press M to modify mem- 
ory, then F000 for our starting address. 

Enter the following data: 

13F0 21 0O00 3E03CF 
ED 5B 00 F0 22 00 F0 EB 
3E 03 CF C9 

Check the values carefully. If they are 
correct, press F2, then S to return to 
TRSDOS. Turn DEBUG OFF. Save a copy 
of the routine to disk using: 

DUMP SETBRK/CIM START = F000, 
END = F020 

This BASIC program will demonstrate the 
use of SETBRK 

10 CLS 

20 SYSTEMTOAD SETBRK/CIM" 

30DEFUSR = &HF002 

4OX = USR(0) 

50 A$ = INKEYS 

60 IF A$ = "" THEN GOTO 50 

70 IF ASC(AS) = 1 THEN END 

80 PRINTTHIS IS A TEST"; 

90 GOTO 50 

This program will demonstrate that the 
BREAK key has been disabled Press Fl 
to end the nrnoram 
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puters which have different capabilities. It 
could be said that all versions of that system 
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The Tandy 3000 family's MS-DOS 3.2 
(current Ver. 3.20.02 with BIOS Ver. 1.02), for 
example, includes partitioning of the over-32Mb 

hard disks. CMS-DOS supports only 32 Mb of 
storage per disk.) I understand IBM didn't do 
partitioning until their version 3.3. 



WC WAJl S 1IQVC && jujirjpg 



3.20.03 (with BIOS Ver. 1.03) will include soae 

BLUIUF i.XJVC?d, BU1C 1K11U UJOI\ OMpfv,* *. .*.««««%» w ..v 

the table, and 3.5-inch 1.44Mb floppy support, 
for the l.44Mb drives I told you last nonth 
were coning. MS-DOS 3.3 is scheduled around the 
end of this? year. FYJ - The Tandy 3000 and 
3000 HL use the sane OS, but BIOS ROMs are NOT 
interchangeable between the two systems. 

There will be a siailar new version for 
the 1000 SX also. Resesber that although 
MS-DOS supplied for the Tandy 3000 and 3000 HL 
■ay run on the 1000, our release versions for 
the two are different. The BASIC language 
supplied for the 3000 does not support the 1000 
family's enhanced graphics and sound 
capabilities. 

In case you want to be sure your own 
system is up-to-date, the current vers'ons of 
MS-DOS for the 1000 family are 2.11.25 (BIOS 
1.02) for the EX, and 3.20.00 (BIOS 1.02) for the 
SX. The original Tandy 1000 uses MS-DOS 
2.11.25 or 3.20.00. with BIOS Ver. 1.01. The 
Tandy 2000 current version is 2.11.03, and is 
not expected to change. MS-DOS for the Tandy 
1200, is version 2.11.41. 

V._» r«i Dm In &A«mWc- 



If Yoo Have This: 

IBM PC Con vertible CGA Option 
■TCJr with PC/r Color Display 



Portable Personal Computer and Color Display 



IColor Display and Color /Graphics Monitor Adapter 

* " '" 

"Color Displa y and Enhanced Graphics Adapter _ 

Enhanced Gra phics Display and Enhanced Graphics Adapter 

Enhanced Graphics Display and Enhanced Graphics Adapter 
<with Memory Expansion C ard and Memory Kit) 

3 270 PC with APA adapter 

3270 PC/G 



Q£A- 



Yon Can Ran to Modes: 



300 x 200 4-color 



300 x 200 4-color 



300 x 200 4-color 



300 x 200 4-color 



300 x 200 4-color, 640 x 200 16-color 



300 x 200 4-color 



640 x 200 16-color, 640 x 350 16-color 



3270 PC AT 



IBM Per sonal System/2 Model 50, 60 or 80 with Color Display 8512 or 8513 
IBM Personal System/2 Modfa»'wafe Cato Bagtay .8512 or 85 1 3 



|BM Personal System/2 Diq£ftM0W!lSi0*rlMV i t3!* • 8513 



300 x 200 4-color 



300 x 200 4-color 



300 x 200 4-color 



All modes 



300 x 200 4-color, 320 x 200 256-color 



All modes 
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